home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / mirage_word_processor[image_concepts_1984].nbz / wp (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  59 lines
  1. 1000 IF A=1 THEN 5500
  2. 1100 B=12:C=0:H=1
  3. 1200 POKE 53280,B:POKE 53281,B:POKE646,C
  4. 1300 GOSUB 6100:PRINT"";CHR$(08);
  5. 1400 PRINT ""
  6. 1500 PRINT "[194]ACKGROUND COLOR IS"B
  7. 1600 PRINT "[195]HARACTER  COLOR IS"C
  8. 1700 PRINT "[200]IGHLIGHT  COLOR IS"H
  9. 1800 PRINT "";
  10. 2400 REM GOSUB 6100:PRINT"";
  11. 2500 PRINT "";
  12. 2600 GET A$:IF A$="" THEN 2600
  13. 2610 IF A$=CHR$(13) THEN 1100:REM RET
  14. 2620 IF A$=CHR$(133) THEN 3000:REM F1
  15. 2630 IF A$=CHR$(134) THEN 3100:REM F3
  16. 2640 IF A$=CHR$(135) THEN 3130:REM F5
  17. 2650 IF A$=CHR$(136) THEN 5200:REM F7
  18. 2660 GOTO 1200
  19. 3000 B=B+1:IF B>15 THEN B=0
  20. 3010 IF B=C OR B=H THEN 3000
  21. 3020 GOTO 1200
  22. 3100 C=C+1:IF C>15 THEN C=0
  23. 3110 IF C=B OR C=H THEN 3100
  24. 3120 GOTO 1200
  25. 3130 H=H+1:IF H> 15 THEN H=0
  26. 3140 IF H=B OR H=C THEN 3130
  27. 3150 GOTO 1200
  28. 5200 REM HERE WE GO!
  29. 5300 POKE 251,B:POKE252,H:POKE253,C
  30. 5400 IF A=0 THEN A=1:LOAD"WP BOOT",8,1
  31. 5500 POKE 650,128:POKE53280,B:POKE53281,B:POKE646,C
  32. 5600 PRINT"[147][205][201][210][193][199][197][160][195][207][206][195][197][208][212][211], [201][206][195].[146]"
  33. 5700 PRINT"[215][207][210][196][160][208][210][207][195][197][211][211][207][210][160]-- [208][210][207][198][197][211][211][201][207][206][193][204][160][214][197][210][211][201][207][206]"
  34. 5800 PRINT"(C) [195]OPYRIGHT 1984"
  35. 5900 PRINT"     [208]ROGRAM LOADING...[208]LEASE WAIT"
  36. 6000 SYS 16384
  37. 6100 PRINT "[147]";
  38. 6200 POKE 53272,23
  39. 6300 PRINT "[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  40. 6400 PRINT "[221][205][201][210][193][199][197][160][215][207][210][196][160][208][210][207][195][197][211][211][207][210]                 [221]";
  41. 6500 PRINT "[221]   *F1 = [194]ACKGROUND   *F5 = [200]IGHLIGHT [221]";
  42. 6600 PRINT "[221]   *F3 = [195]HARACTER    *F7 = [198]INISHED  [221]";
  43. 6700 PRINT "[221]                                      [221]";
  44. 6800 PRINT "[221]   *[208]RESS <[195][210]> TO RETURN TO DEFAULTS  [221]";
  45. 6900 PRINT "[221]";:POKE 646,H
  46. 7000 PRINT "                                      [146]";
  47. 7100 POKE 646,C:PRINT"[221]";
  48. 7200 PRINT "[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  49. 7300 PRINT"    0 = [194][204][193][195][203]         8 = [207][210][193][206][199][197]"
  50. 7400 PRINT"    1 = [215][200][201][212][197]         9 = [194][210][207][215][206]"
  51. 7500 PRINT"    2 = [210][197][196]          10 = [204][201][199][200][212][160][210][197][196]"
  52. 7600 PRINT"    3 = [195][217][193][206]         11 = [196][193][210][203][160][199][210][193][217]"
  53. 7700 PRINT"    4 = [208][213][210][208][204][197]       12 = [199][210][193][217]"
  54. 7800 PRINT"    5 = [199][210][197][197][206]        13 = [204][201][199][200][212][160][199][210][197][197][206]"
  55. 7900 PRINT"    6 = [194][204][213][197]         14 = [204][201][199][200][212][160][194][204][213][197]"
  56. 8000 PRINT"    7 = [217][197][204][204][207][215]       15 = [204][201][199][200][212][160][199][210][193][217]"
  57. 8100 RETURN
  58. 8200 END
  59.